home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue60 / COMThrd / MultipleSTAClient.dpr < prev    next >
Encoding:
Text File  |  2000-05-15  |  358 b   |  23 lines
  1. program MultipleSTAClient;
  2.  
  3. { $define MTA}
  4.  
  5. uses
  6. {$ifdef MTA}
  7.   ComObj,
  8.   ActiveX,
  9. {$endif}
  10.   Forms,
  11.   MultipleSTAClientForm in 'MultipleSTAClientForm.pas' {Form2};
  12.  
  13. {$R *.RES}
  14.  
  15. begin
  16. {$ifdef MTA}
  17.   CoInitFlags := COINIT_MULTITHREADED;
  18. {$endif}
  19.   Application.Initialize;
  20.   Application.CreateForm(TForm2, Form2);
  21.   Application.Run;
  22. end.
  23.